Исходный код

Option Explicit

' Вывести значения свойств выбранного объекта

Dim SelObjDlg, selObj

' Открыть диалог выбора объекта
Set SelObjDlg = ThisApplication.Dialogs.SelectObjectDlg
SelObjDlg.Show

' Если выбран хотя бы один объект
If SelObjDlg.Objects.Count > 0 Then

    Set selObj = SelObjDlg.objects(0)
    
    MsgBox selobj.Description & Chr(13) & _ 
                    "Дата создания " & selobj.CreateTime & Chr(13) & _
                    "Создатель " & selobj.CreateUser.Description & Chr(13) & _
                    "Статус " & selobj.StatusName & Chr(13) & _
                    "Рабочий каталог " & selobj.WorkFolder & Chr(13) & _
                    "Описание версии " & selobj.VersionDescription & Chr(13) & _
                    "Администратор " & selobj.Administrator.Description ,, "Свойства объекта"
    
End If